mapWorld <- function(object,...){
  UseMethod("mapWorld")
}

mapWorld.countryData <- function(object,...){
  cat("mapping country data\n")
}

mapWorld.SpatialGridDataFrame <- function(object,...){
  cat("mapping a SGDF\n")
}


  
